setdisplay(256,192,32,1):paper(0xFFFFFF):ink(0):pen(0):cls
for f=-0 to 255 step .5
dot (f,96-80*tan(f*6.2832/255))
next
waitkey